Xbasic

A5_TABLE_ENUM_ACTUAL Function

Syntax

Table_List as C = a5_table_enum_actual([L long ])

Arguments

Table_List

Logical. A CR-LF delimited list of tables in the database.

long

Logical. Optional. Default = .T. .T. = List fully qualified file names, .F. = List only table names.

Description

The A5_TABLE_ENUM_ACTUAL() function returns a list of tables in the current database that have valid filenames. The tables must exist.

Discussion

Example

? a5_table_enum_actual(.T.)
= c:\databases\expressions test\textmode.dbf
c:\databases\expressions test\testmailer_inbox.dbf
c:\databases\expressions test\mytable2.dbf
c:\databases\expressions test\salespeople.dbf

This script updates the indexes for all the tables in a database.

dim tables_to_update as C
dim i as N
dim count as N
tables_to_update = a5_table_enum_actual()
count = line_count(tables_to_update) 
 for i = 1 to count 
 statusbar.percent(i,count) 
 table_i = word(tables_to_update,i,crlf() ) 
 tbl = table.open(table_i) 
 tbl.update_production_index() 
 tbl.close() 
 next i

See Also